﻿Public Class frmClose

    Private Sub btnSelectAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectAll.Click
        With lstTables
            .SelectedItems.Clear()
            For i As Integer = 0 To .Items.Count - 1
                .SelectedItems.Add(.Items(i))
            Next
        End With
    End Sub

    Private Sub lstTables_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstTables.DoubleClick
        btnOK.PerformClick()
    End Sub
End Class